home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / PD / GAMES / TOOLS / QSERVER1.ZIP / !QServer / !Run < prev    next >
Text File  |  1998-04-12  |  973b  |  30 lines
  1. | !Run file for !QServer
  2. | An internet Quake helping hand ...
  3. | By Allan J. Eagle
  4. | Version 1.12 (16th January 1998)
  5.  
  6. Set QServer$Dir <Obey$Dir>
  7. Set QServer$Path <Obey$Dir>.
  8. Set QServerChoices$Path <Obey$Dir>.Choices.
  9.  
  10. Iconsprites <QServer$Dir>.!Sprites
  11.  
  12. | Check for copy of Quake
  13. Set QuakeSeen 0
  14. If "<Quake$Dir>" <> "" Then Set QuakeSeen 1
  15. If "<ArcQuake$Dir>" <> "" Then Set QuakeSeen 1
  16. If "<QuakeSeen>" = "0" Then Error Quake needs to be seen by the filer before running this program ...
  17.  
  18. If "<Quake$Dir>" = "" Then Set Quake$Dir <ArcQuake$Dir>
  19.  
  20. %Set Alias$IfRM SetEval Test$Eval 1|M RMEnsure %%0 0 SetEval Test$Eval 0|MIf Test$Eval Then %%1 %%2 %%3 %%4 %%5 %%6 %%7|M Unset Test$Eval
  21.  
  22. If "<QServer$Running>" = "" Then Set QServer$Running 0
  23. Run QServer:Sounds.LoadSounds
  24.  
  25. Wimpslot -min 400k -max 400k
  26. Wimpslot -min 320k -max 320k
  27.  
  28. Run QServer:!RunImage
  29. If "<QServer$Running>" = "0" Then Run QServer:Sounds.KillSounds
  30. If "<QServer$Running>" = "0" Then Unset QServer$Running